* lisp/emacs-lisp/map.el (map-pairs): Dump redundant lambda

diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el
index 3efab4048960b1d7aeaf5d6220069b134343c54e..4b53524d728709bac2753ebaa7e9bb8093b0a86a 100644 (file)
--- a/lisp/emacs-lisp/map.el
+++ b/lisp/emacs-lisp/map.el
@@ -95,9 +95,7 @@ Map can be a nested map composed of alists, hash-tables and arrays."
 
 (defun map-pairs (map)
   "Return the elements of MAP as key/value association lists."
-  (map-apply (lambda (key value)
-               (cons key value))
-             map))
+  (map-apply #'cons map))
 
 (defun map-length (map)
   "Return the length of MAP."